home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GEOS - Geos #005 (19xx)(-).d64 / geolist2.1.arc / ÇeoList 2.1LF (.txt) < prev   
GEOS ConVerT  |  2019-04-13  |  8KB  |  310 lines
  1. eoList 2.1LF
  2. SEQ formatted GEOS file V1.0
  3. Epson FX-80
  4. RT 1.1
  5. eoList 2.1LF
  6. GeoList 2.1LF
  7. Sellers/Davis/Shafer
  8. Update by Gale Shafer for KX-P1091...  uses LF - 
  9. Line Feeds.
  10. *******************************
  11. **       GEOLIST 2.1LF      ***
  12. ** MODIFIED VERSION OF      ***
  13. ** GEOLIST V0.9 FROM MIKE   ***
  14. ** SELLERS (MIK55)...       ***
  15. ** MODIFIED BY BILL DAVIS   ***
  16. **   (REBASAK)  10/10/87    ***
  17. ** MODIFIED BY GALE SHAFER  ***
  18. **   GALES      11/23/87    ***
  19. *******************************
  20. (27)"@"
  21. (27)"
  22.  ***RESET PRINTER -ELITE
  23.  644,128:
  24.  56,126:
  25.  G1$(16),G2$(3),X1(5),X1$(5),NU$(99)
  26. (147)
  27.  GET GEOS DATE & TIME----------
  28. 34069
  29. 5:X1(I)
  30. X1$(I)
  31. (X1(I)):X1$(I)
  32. (X1$(I),2)
  33. (X1$(3),1) :X3$
  34. (X1$(3),1)
  35. X1$(3)
  36. X1$(2)
  37. X1$(3)
  38. X1$(1)
  39. (X1$(5),1) :X3$
  40. (X1$(5),1)
  41. X1$(5)
  42. X1$(4)
  43. X1$(5)
  44. (X6$,1) :XA$
  45. (X6$,1)
  46.  X1(2)
  47. X1(2)
  48. "        ":X5$
  49. "     "
  50.  INITIALIZE -------------------
  51. 66:OF
  52. 60:LN
  53.  PAGING-
  54. FT$(I):
  55. G2$(I):
  56. G1$(I):
  57. 79:LN$
  58. NU$(I)
  59. (I),2)
  60. BL$(I)
  61. (I),1)
  62. NU$(I)
  63. BL$(I):BL$(I)
  64. BL$(I)
  65. AME        
  66. YPE        
  67. ATE    
  68. IME   
  69.   RESTART POINT ---------------
  70. "":ID$
  71. "":FT$
  72. "":TF
  73. 0:EOI
  74. (147)
  75. EOLIST 2.1
  76.  - 1541"
  77. NSERT 
  78.  DISK IN DRIVE"
  79. 8)"PRESS "
  80. (18)"RETURN"
  81. (146)" TO CONTINUE,"
  82. 10)"  OR  "
  83. (18)"F7"
  84. (146)" TO CANCEL  "
  85. (136)
  86. 4620 :
  87.  CANCEL
  88. 7,4,7:
  89.  STATUS
  90. (18)"
  91. (146)
  92. 5000:
  93. (17):
  94. (5)"PROCESSING..."
  95. 15,8,15:
  96. 15,"I0":
  97. 15,EN$,EM$,ET$,ES$:
  98. (17):
  99. EN$", "EM$", "ET$", "ES$
  100.  *** BLOCKS FREE --------------
  101. 15,"M-R"
  102. (250)
  103. #15,B$:L
  104. #15,B$:
  105. #15,B$:H
  106. (0)):BF
  107. 3,8,3,"$0,P,R"
  108.  781,3:
  109. 65478
  110. B$:DOS
  111. 5140:DN$
  112. 5140:ID$
  113. B$:OT
  114. NU$(OT)
  115. B$:OS
  116. NU$(OS)
  117. 5140 :GF$
  118. B$:B1
  119. ISK    "
  120. ISK    "
  121. PPLICATION  "
  122. ISK":GF$
  123. "                "
  124. 65484
  125. 7,4,7:
  126. 2760:
  127.  PRINT HEADINGS ---------------
  128. 1 :LN
  129. 7,"                                
  130. IST 2.1
  131. : "DN$"   
  132. : "ID$"       "X4$"   "X5$"   
  133. AGE: "PG
  134. 7,B2$" "GF$"   
  135. RITE 
  136. ROTECT "DP$"   
  137. LOCKS 
  138. REE:"BF:
  139. 7,HD$
  140. 7,LN$ :
  141.  GET DOS FILE TYPE ------------
  142.  781,3:
  143. 65478
  144. B$:FT
  145. (0)):FT$
  146. FT$(7
  147.  GET FILE NAME ----------------
  148. 5140 
  149.  GET TRACK & SECTOR -----------
  150.  GET GEOS FILE STRUCTURE ------
  151. B$:G2
  152. G2$(G2)
  153.  GET GEOS FILE TYPE -----------
  154. B$:G1
  155. G1$(G1)
  156.  GET YEAR/MONTH/DAY -----------
  157. B$:D1
  158. (0)):
  159. B$:D2
  160. (0)):
  161. B$:D3
  162. (0)):
  163.  GET HOUR/MINUTES -------------
  164. B$:D4
  165. (0)):
  166. B$:D5
  167. (0)):
  168.  PROGRAM SIZE -----------------
  169. B$:D6
  170. (0)):
  171. 65484
  172.  CONVERT TIME TO 12 HOUR AM/PM
  173. 12:AP$
  174.  PROGRAM SIZE IN K BYTES ------
  175. (D6) :BK$
  176. (BK$,3) :
  177.  TOTAL BLOCKS
  178. ":D6$
  179. (D6$,3)
  180. (D6$)
  181.  NUMBER OF FILES -----
  182. EOS      "
  183. 7,4,7:
  184. NU$(D2)
  185. NU$(D3)
  186. NU$(D1)
  187. NU$(D4)
  188. NU$(D5)
  189.  DT/TM
  190. NU$(T):S$
  191. NU$(S):
  192.  TRACK/SEC
  193.  GET GEOS VERSION NUMBER ------
  194.  6,8,6,"#":
  195. 15,"U1";6;0;T;S:
  196. 15,"B-P";6;89
  197.  781,6:
  198. 65478
  199. 5160 
  200. " " :
  201. 4080 
  202. (G3$,4):
  203. 65484
  204. (V$,1):
  205. "    "
  206. 7,4,7
  207.  GEOS FILES -------------------
  208. 7,D6$"  "F$" "V$" "FT$" "G1$" "M0$" "G2$"  "T$" "S$" "BK$:
  209.  NON-GEOS FILES ---------------
  210. 7,D6$"  "F$"      "FT$" "G1$"                              "BK$
  211. 5620  :
  212.  781,3:
  213. 65478
  214. 5340:
  215. 15,EN$,EM$,ET$,ES$:
  216. 65484:
  217. 7,4,7
  218.  USED & FREE BYTES ------------
  219. 4): KT
  220. 4520 
  221. TK:TK
  222. TK:TK$
  223. (TK):TF$
  224. (TF):UK$
  225. 7,UK$" 
  226. YTES 
  227. SED  "TK$" 
  228. YTES 
  229. REE   165 
  230. YTES 
  231. OTAL"
  232. OTAL 
  233. UMBER OF 
  234. ILES:"TF$"    
  235. OTAL 
  236. LOCKS 
  237. SED: "T6
  238. 5620 
  239.  CLOSE PRINTER
  240. NOTHER DISK? (Y/N)"
  241. 198,0:
  242. 198,1:
  243. 5680 :
  244.  QUIT
  245.  *** FILE TYPES ***************
  246.  DEL,SEQ,PRG,USR,REL,???
  247.  *** GEOS FILE STRUCTURES *****
  248. ","UNKN"
  249.  *** GEOS FILE TYPES **********
  250. EOS      "
  251. ASIC 
  252. ROGRAM "
  253. SSEMBLY 
  254. ROG "
  255. ILE     "
  256. YSTEM 
  257. ILE   "
  258. CCESSORY"
  259. PPLICATION   "
  260. PPL. 
  261. ATA    "
  262. ILE     "
  263. RINTER 
  264. RIVER"
  265. NPUT 
  266. RIVER  "
  267. RIVER   "
  268. YSTEM 
  269. OOT   "
  270. EMPORARY     "
  271. XECUTE  "
  272.  "UNKNOWN       "
  273.  *** GET A BYTE ***************
  274.  FILES ON DESKTOP BORDER ------
  275. 65484:
  276. 7,4,7
  277. (13)". . . . . . 
  278. ILES ON 
  279. ESKTOP 
  280. ORDER . . . . . .";
  281. 7," . . . . . . . . . . . "OT$" "OS$;
  282.  IS THERE A BORDER? -----------
  283. 4400 
  284. 4400 
  285. 3,8,3,"#"
  286. 15,"U1:"3;0;OT;OS:
  287. 15,"B-P:3,2"
  288.  ------------------------------
  289. 65484:
  290. 7,4,7
  291. (13)". . . . . . 
  292. ILES ON THE 
  293. ORDER. . . . . . .";
  294. 7," . . . . . . . . . . . "OT$" "OS$;
  295.  NOT GEOS DISK NO BORDER-------
  296.  FINISH PAGE ------------------
  297. (7);:
  298.  END PROGRAM & RETURN TO GEOS *
  299. RESS "
  300. (18)"
  301. (146)" TO RETURN TO 
  302. ASIC OR"
  303. NSERT 
  304. ISK IN DRIVE 8"
  305. "AND PRESS "
  306. (18)"
  307. ETURN"
  308. (146)" TO RETURN TO 
  309. 49152:
  310.